unit entTeklifHareketTanim;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uClassEntry, cxGraphics, cxControls,
  cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
  cxPCdxBarPopupMenu, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage,
  Data.DB, cxDBData, Vcl.Menus, Data.Win.ADODB, Vcl.ActnList, cxPropertiesStore,
  cxHeader, Vcl.StdCtrls, cxButtons, cxGridLevel, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, cxPC,
  cxGroupBox, cxMemo, cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit;

type
  TfmTeklifHareketTanim = class(TfmClassEntry)
    grdReportID: TcxGridDBColumn;
    grdReportsUrun: TcxGridDBColumn;
    grdReportsTanim: TcxGridDBColumn;
    grdReportsFiyat: TcxGridDBColumn;
    grdReportnSira: TcxGridDBColumn;
    Label5: TLabel;
    edFiyat: TcxDBSpinEdit;
    Label1: TLabel;
    edSira: TcxDBSpinEdit;
    Label2: TLabel;
    mmUrun: TcxDBMemo;
    Label3: TLabel;
    mmTanim: TcxDBMemo;
    procedure acListExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmTeklifHareketTanim: TfmTeklifHareketTanim;

implementation

{$R *.dfm}

procedure TfmTeklifHareketTanim.acListExecute(Sender: TObject);
var
  ExCursor: TCursor;
begin
  inherited;
  ExCursor := Screen.Cursor;
  Screen.Cursor := crSQLWait;
  try
    With aqList do
    begin
      Close;
      Sql.Text := fSQL;
      Open;
    end;
  finally
    Screen.Cursor := ExCursor;
  end;
end;

procedure TfmTeklifHareketTanim.FormCreate(Sender: TObject);
begin
  inherited;
  fSQL := 'SELECT * FROM tbTeklifFiyatTanim Order By nSira';
end;

end.
